home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 03 Concrete / 03400 Precast Concrete / Internal Macros / s1rail < prev    next >
Encoding:
Text File  |  1992-06-05  |  1.1 KB  |  80 lines  |  [TEXT/GSAC]
  1. ! name: stair with rail
  2. !Pal GSCNE'91
  3.  
  4. pars "a,b,c,d"
  5. let l=a/d
  6. let h=c/d
  7. !print "Riser height : ",h
  8. addx b/2
  9. roty -90
  10. for i=0 to d-1
  11.    addx h*i
  12.    addy l*i
  13.   prism_ 3,b,
  14.               0,0,15,
  15.             h,0,15,
  16.              h,l,10
  17.  del 2
  18. next i
  19.  
  20. del top
  21. addx b/2
  22. roty -90
  23. prism_ 4,b,
  24.            0,0,10,
  25.           c,a,15,
  26.           c-h,a,15,
  27.            0,l,15
  28.  
  29. addx 34"
  30. addz 2 1/2"
  31. prism_ 4,.1",
  32.           0,0,15,
  33.           c,a,15,
  34.           c-2",a,15,
  35.            -2",0,15
  36. del 1
  37. addz b-3 1/2"
  38. prism_ 4,.1",
  39.           0,0,15,
  40.           c,a,15,
  41.           c-2",a,15,
  42.            -2",0,15
  43. del 1
  44. addx -10"
  45. addz 2 1/2"
  46. prism_ 4,.1",
  47.           h/2,l/2,15,
  48.           c-h/2,a-l/2,15,
  49.           c-h/2-6",a-l/2,15,
  50.            h/2-6",l/2,15
  51. del 1
  52. addz b-3 1/2"
  53. prism_ 4,.1",
  54.           h/2,l/2,15,
  55.           c-h/2,a-l/2,15,
  56.           c-h/2-6",a-l/2,15,
  57.            h/2-6",l/2,15
  58. del top
  59. ! right posts 
  60. addx b/2-3"
  61. addy .5*l-1/2"
  62. addz h
  63. cylind 32"-h/2,1/2"
  64. del 2
  65. addy  a-.5*l+1/2"
  66. addz c
  67. cylind 32"-h/2,1/2"
  68. del top
  69. ! left posts
  70. addx -b/2+3"
  71. addy .5*l-1/2"
  72. addz h
  73. cylind 32"-h/2,1/2"
  74. del 2
  75. addy  a-.5*l+1/2"
  76. addz c
  77. cylind 32"-h/2,1/2"
  78. del 2
  79. end
  80.